home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / OWL / BLRPLT / MESSAGES.DAT < prev    next >
Text File  |  1994-03-15  |  2KB  |  100 lines
  1. *wm_Char
  2. {wParam, the char.
  3.  lParam, miscellaneous key info.}
  4. begin
  5. end;
  6. *wm_LButtonDown
  7. {wParam, a combination of MK_CONTROL, MK_MBUTTON, MK_RBUTTON, MK_SHIFT
  8.  lParamLo, X cursor pos rel to upper left corner of window  (dev coord)
  9.  lParamHi, Y cursor pos}
  10. begin
  11. end;
  12. *wm_LButtonDblClk
  13. {wParam, a combination of MK_CONTROL, MK_MBUTTON, MK_RBUTTON, MK_SHIFT
  14.  lParamLo, X cursor pos rel to upper left corner of window  (dev coord)
  15.  lParamHi, Y cursor pos}
  16. begin
  17. end;
  18. *wm_RButtonDown
  19. {wParam, a combination of MK_CONTROL, MK_MBUTTON, MK_LBUTTON, MK_SHIFT
  20.  lParamLo, X cursor pos rel to upper left corner of window  (dev coord)
  21.  lParamHi, Y cursor pos}
  22. begin
  23. end;
  24. *wm_LButtonUp
  25. {wParam, a combination of MK_CONTROL, MK_MBUTTON, MK_RBUTTON, MK_SHIFT
  26.  lParamLo, X cursor pos rel to upper left corner of window  (dev coord)
  27.  lParamHi, Y cursor pos}
  28. begin
  29. end;
  30. *wm_RButtonUp
  31. {wParam, a combination of MK_CONTROL, MK_MBUTTON, MK_LBUTTON, MK_SHIFT
  32.  lParamLo, X cursor pos rel to upper left corner of window  (dev coord)
  33.  lParamHi, Y cursor pos}
  34. begin
  35. end;
  36. *wm_MouseMove
  37. {wParam, a combination of MK_CONTROL, MK_LBUTTON, MK_RBUTTON, MK_SHIFT
  38.  lParamLo, X cursor pos rel to upper left corner of window  (dev coord)
  39.  lParamHi, Y cursor pos}
  40. begin
  41. end;
  42. *wm_Close
  43. begin
  44. @XX02.wmClose(Msg);
  45. end;
  46. *wm_Size
  47. {wParam, SizeFullScreen, SizeNormal, or SizeIconic
  48.  lParamLo, client area width in pixels
  49.  lParamHi, client area height}
  50. begin
  51. @XX02.wmSize(Msg);
  52. end;
  53. *wm_Paint
  54. var
  55.   PS : TPaintStruct;
  56.   DC : HDC;
  57. begin
  58. DC := BeginPaint(hWindow, PS);
  59. EndPaint(hWindow, PS);
  60. end;
  61. *wm_SetFocus
  62. begin
  63. end;
  64. *wm_KillFocus
  65. begin
  66. end;
  67. *wm_InitMenu
  68. {wParam, a handle to the menu}
  69. begin
  70. end;
  71. *wm_Timer
  72. {wParam, the timer ID}
  73. begin
  74. end;
  75. *wm_CtlColor
  76. {wParam, display context handle of child window
  77.  lParamLo, window handlw of child window
  78.  lParamHi, type of child window such as cntcolor_Listbox}
  79. begin
  80. DefWndProc(Msg);  {must be called for all messages not processed here}
  81. end;
  82. *wm_KeyDown
  83. {wParam, virtual keycode
  84.  lParamLo, repeat time of key
  85.  lParamHi, misc key info}
  86. begin
  87. end;
  88. *wm_Destroy
  89. begin
  90. @XX02.wmDestroy(Msg);
  91. end;
  92. *wm_DrawItem
  93. {lParam points to TDrawItemStruct}
  94. begin
  95.   with PDrawItemStruct(Msg.lParam)^ do
  96.     begin
  97.     end;
  98.   DefWndProc(Msg);  {must be called for all messages not processed here}
  99. end;
  100.